100 PRINT"[147]         *** MICRO-MAZE ***"
110 PRINT"IN THIS GAME,YOU HAVE TO MAKE YOUR WAY"
120 PRINT"THROUGH A MAZE,BUT THE SCREEN WILL SHOW"
130 PRINT"THE VIEW FROM INSIDE THE MAZE,INSTEAD OF";
140 PRINT"FROM ABOVE IT. YOU CAN TURN LEFT,RIGHT,"
150 PRINT"GO STRAIGHT ON OR BACKWARDS AT EACH"
160 PRINT"JUNCTION,BY TYPING L,R,F(FORWARDS) OR B.";
170 PRINT"IF YOU WANT TO SEE THE MAZE FROM ABOVE"
180 PRINT"TYPE 'H',BUT EACH TIME YOU DO THIS YOUR"
190 PRINT"SCORE WILL LESSEN. THIS IS A DEMO OF IT"
200 PRINT"    PRESS ANY KEY TO START THE DEMO"
210 GETA$:IFA$=""THEN210
215 POKE53280,0
220 PRINT"[147]":POKE53281,0:DIMA(8,8),C$(15),D(4),E(4),T(3),L(15),R(15)
225 A=0:B=0:C=0
230 FORX=1TO8:FORY=1TO8:READA(X,Y):NEXT:NEXT
240 FORX=0TO15:READR(X),L(X):NEXT
250 FORX=1TO4:READD(X),E(X):NEXT
260 FORX=0TO15:FORY=1TO3:READC$:C$(X)=C$(X)+C$:IFY<3THENC$(X)=C$(X)+"[157][157][157]"
270 NEXT:NEXT
300 H=0:N=0:PX=1:PY=1:RX=8:RY=8:D=1
310 GOSUB2000:GOSUB4000
320 IFPX<>RXORPY<>RYTHENN=N+1:GOTO310
330 PRINT"[147]AMAZE[146]ING!":PRINT"YOU'VE DONE IT!"
340 PRINT"YOUR SCORE IS";
344 S=50-H*2-N
345 PRINT-(S>0)*S;"OUT OF 25."
350 END
1000 A=1073:B=1913:C=21:GOSUB9000
1010 A=1278:B=1718:C=11:GOSUB9000
1020 IFE>1THENA=1401:B=1601:C=5:GOSUB9000
1030 IFE>2THENA=1442:B=1562:C=3:GOSUB9000
1040 RETURN
2000 PRINT"[147]"
2010 GOSUB5000:GOSUB1000
2020 FORX=1TOE:I=T(X):J=IAND1:K=IAND2:L=IAND4
2030 IFJTHENGOSUB2200
2040 IFKTHENGOSUB2100
2050 IFLTHENGOSUB2300
2060 IFJ=0THENGOSUB2400
2070 IFL=0THENGOSUB2500
2080 NEXTX
2090 RETURN
2100 ONXGOTO2110,2120,2130
2110 A=1239:B=1248:C=520:GOTO6000
2120 A=1362:B=1365:C=280:GOTO6000
2130 A=1403:B=1404:C=200:GOTO6000
2200 ONXGOTO2210,2220,2230
2210 A=1074:B=1238:GOSUB7000:A=1758:B=1914:GOTO8000
2220 A=1279:B=1361:GOSUB7000:A=1641:B=1719:GOTO8000
2230 POKE1402,77:POKE1602,78:RETURN
2300 ONXGOTO2310,2320,2330
2310 A=1093:B=1249:GOSUB8000:A=1769:B=1933:GOTO7000
2320 A=1288:B=1366:GOSUB8000:A=1646:B=1728:GOTO7000
2330 POKE1405,78:POKE1605,77:RETURN
2400 ONXGOTO2410,2420,2430
2410 A=1234:B=1238:C=520:GOTO6000
2420 A=1359:B=1361:C=280:GOTO6000
2430 POKE1402,100:POKE1602,99:RETURN
2500 ONXGOTO2510,2520,2530
2510 A=1249:B=1253:C=520:GOTO6000
2520 A=1366:B=1368:C=280:GOTO6000
2530 POKE1405,100:POKE1605,99:RETURN
3000 FORX=1TO8:FORY=1TO8:Q=A(X,Y)
3010 PRINTC$(Q)"[145][145]";
3020 NEXT:PRINT"":NEXT:H=H+1
3030 POKE1065+(PY-1)*3+(PX-1)*120,42
3040 POKE1065+(RY-1)*3+(RX-1)*120,134
3050 GETA$:IFA$=""THEN3050
3060 PRINT"[147]":RETURN
4000 REM
4010 READA$
4020 IFA$="H"THENPRINT"[147]";:GOSUB3000:GOSUB2010:GOTO4000
4030 IFA$="F"AND(T(1)AND2)=0THEN4080
4040 IFA$="B"AND(T(1)AND8)=0THEN4110
4050 IFA$="L"AND(T(1)AND1)=0THEN4130
4060 IFA$="R"AND(T(1)AND4)=0THEN4150
4065 IFA$=""THENPRINT"[147]":END
4070 GOTO4010
4080 PM=PX:PN=PY:PX=PX+D(D):PY=PY+E(D)
4090 IFPX<1ORPX>8ORPY<1ORPY>8THENPX=PM:PY=PN:GOTO4010
4100 RETURN
4110 D=D+2:IFD>4THEND=D-4
4120 GOTO4080
4130 D=D-1:IFD=0THEND=4
4140 GOTO4080
4150 D=D+1:IFD=5THEND=1
4160 GOTO4080
5000 X=PX:Y=PY:T(1)=A(X,Y):E=1
5010 E=E+1:X=X+D(D):Y=Y+E(D):IFX<1ORX>8ORY<1ORY>8THENE=E-1:GOTO5040
5020 E=E+1:T(2)=A(X,Y):X=X+D(D):Y=Y+E(D):IFX<1ORX>8ORY<1ORY>8THENE=E-1:GOTO5040
5030 T(3)=A(X,Y)
5040 FORX=1TOE
5050 IFD<3THENT(X)=R(T(X))
5060 IFD=3THENT(X)=L(T(X))
5070 IFD=2THENT(X)=R(T(X))
5080 NEXT:FORX=1TOE
5090 IF(T(X)AND2)>0THENE=X:RETURN
5100 NEXT:RETURN
6000 FORY=ATOB:POKEY,100:POKEY+C,99:NEXT:RETURN
7000 FORY=ATOBSTEP41:POKEY,77:NEXT:RETURN
8000 FORY=ATOBSTEP39:POKEY,78:NEXT:RETURN
9000 FORY=ATOBSTEP40:POKEY,103:POKEY+C,101:NEXT:RETURN
9500 DATA11,2,6,3,10,14,7,7,3,4,1,0,2,10,8,4
9510 DATA5,13,5,13,1,14,11,12,9,6,9,14,9,6,3,14
9520 DATA3,4,3,6,3,8,8,6,9,12,5,9,8,10,10,12
9530 DATA3,2,12,3,2,10,2,6,13,9,10,12,9,14,13,13
9540 DATA0,0,8,2,1,4,9,6,2,8,10,10,3,12,11,14,4,1,12,3,5,5
9550 DATA13,7,6,9,14,11,7,13,15,15
9560 DATA0,1,1,0,0,-1,-1,0
9570 DATA"[166] [166]","   ","[166] [166]"
9580 DATA"[166] [166]","[166]  ","[166] [166]"
9590 DATA"[166][166][166]","   ","[166] [166]"
9600 DATA"[166][166][166]","[166]  ","[166] [166]"
9610 DATA"[166] [166]","  [166]","[166] [166]"
9620 DATA"[166] [166]","[166] [166]","[166] [166]"
9630 DATA"[166][166][166]","  [166]","[166] [166]"
9640 DATA"[166][166][166]","[166] [166]","[166] [166]"
9650 DATA"[166] [166]","   ","[166][166][166]"
9660 DATA"[166] [166]","[166]  ","[166][166][166]"
9670 DATA"[166][166][166]","   ","[166][166][166]"
9680 DATA"[166][166][166]","[166]  ","[166][166][166]"
9690 DATA"[166] [166]","  [166]","[166][166][166]"
9700 DATA"[166] [166]","[166] [166]","[166][166][166]"
9710 DATA"[166][166][166]","  [166]","[166][166][166]"
9720 DATA"[166][166][166]","[166] [166]","[166][166][166]"
9730 DATAF,F,R,L,F,R,F,L,R,R,L,R,R,L,L,F,R,L,L,F,L,R,F,F,F,R